home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / prog / mod2tutb.zip / BIGCASE.MOD < prev    next >
Text File  |  1989-01-18  |  1KB  |  53 lines
  1.                                          (* Chapter 4 - Program 7 *)
  2. MODULE BigCase;
  3.  
  4. FROM InOut IMPORT WriteString, WriteInt, WriteLn;
  5.  
  6. VAR Dummy : INTEGER;
  7.     Index : INTEGER;
  8.  
  9. BEGIN
  10.  
  11.    FOR Dummy := 1 TO 7 DO
  12.       WriteInt(Dummy,4);
  13.       WriteString("  ");
  14.       CASE Dummy OF
  15.          1,5,6       : IF Dummy > 5 THEN
  16.                           WriteString("The number is six.");
  17.                        ELSE
  18.                           FOR Index := 1 TO Dummy DO
  19.                              WriteString("XXXXX  ");
  20.                           END;
  21.                        END; |
  22.  
  23.          2           : FOR Index := 1 TO 5 DO
  24.                           WriteString(" It is 2 ");
  25.                        END; |
  26.  
  27.          3,7         : WriteString("It is 3 or 7");
  28.                        WriteString(" which turns out");
  29.                        WriteString(" to be very good."); |
  30.       ELSE
  31.          WriteString("The number 4 will not be used.");
  32.       END;  (* of CASE *)
  33.       WriteLn;
  34.    END;  (* of FOR loop *)
  35.  
  36. END BigCase.
  37.  
  38.  
  39.  
  40.  
  41. (* Result of execution
  42.  
  43.    1  XXXXX
  44.    2   It is 2  It is 2  It is 2  It is 2  It is 2
  45.    3  It is 3 or 7 which turns out to be very good.
  46.    4  The number 4 will not be used.
  47.    5  XXXXX  XXXXX  XXXXX  XXXXX  XXXXX
  48.    6  The number is six.
  49.    7  It is 3 or 7 which turns out to be very good.
  50.  
  51. *)
  52.  
  53.